---
title: " My portfolio"
author: "Jens Ruhof"
date: "2/20/2021"
output:
flexdashboard::flex_dashboard:
storyboard: true
social: menu
source: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(spotifyr)
library(dplyr)
library(fmsb)
library(png)
library(plotly)
library(compmus)
```
``` {r get_playlist, include=FALSE}
Eminem <- get_playlist_audio_features("", "6E8sLG3bm1meTRj8n5l0ll")
mean_eminem <- Eminem %>%
summarise(
mean_danceability = mean(danceability),
mean_energy = mean(energy),
mean_speechiness = mean(speechiness),
mean_acousticness = mean(acousticness),
mean_instrumentalness = mean(instrumentalness),
mean_liveness = mean(liveness),
mean_valence = mean(valence)
)
```
### Introduction
TODO: Tekst readme plakken
***
Main focus points
- Least popular songs
- Most popular songs
- Interactive radarchart of spotify measurements on eminem
- Chroma feature example of my favourtite eminem song.
***
{width=100%}
### Least popular
``` {r}
Eminem %>%
group_by(track.popularity) %>%
filter(track.popularity <= "35") %>%
ggplot(aes(x =track.popularity , y = track.name)) +
geom_col(aes(fill = track.album.name)) +
labs(x= "Popularity") +
ggtitle("What are the least popular Eminem songs?", "Popularity ranking < 35") +
theme(legend.position = "right",
legend.text = element_text( size = 6),
text = element_text(size = 8),
axis.title.y = element_blank())
```
***
#### Least popular songs
A thing to note already is that the paul skit appears on multiple albums and
that his skits often aren't very popular. A reason for this could be that these
skits aren't songs and are often a story within the album. An example is the
paul skit or skits I should say. These skits, since there are multiple named
Paul are a reference to his music manager Paul Rosenberg in which eminem often
features a snippet of a phone conversation with some information about the album.
### Most popular
``` {r}
Eminem %>%
group_by(track.popularity) %>%
filter(track.popularity >= "75") %>%
ggplot(aes(x =track.popularity , y = track.name)) +
geom_col(aes(fill = track.album.name)) +
labs(x= "Popularity") +
ggtitle("What are the most popular Eminem songs?", "Popularity ranking > 75") +
theme(legend.position = "right",
legend.text = element_text( size = 6),
text = element_text(size = 8),
axis.title.y = element_blank())
```
***
#### Most popular songs of Eminem
An interesting thing to see here is that all of his major albums have at least one song with a high popularity with personally one of his best albums "recovery" having two in it. I would like to delve into popularity per album and compare the populartiy with other things spotify measures later on.
### Radarplot
``` {r}
test <- plot_ly(
type = "scatterpolar",
r= c(0.7129386,0.7213708,0.2985401,0.1928719,0.01342138,0.2951325,0.5395462),
theta = c("mean_danceability", "mean_energy", "mean_speechiness", "mean_acousticness","mean_instrumentalness", "mean_liveness", "mean_valence"),
fill = "toself"
)
test <- test %>%
layout(
polar = list(
radialaxis = list(
visible = T,
range = c(0,1)
)
),
showlegend = F
)
test
```
***
#### This is a radarchart which represents all the mean values of eminems songs.
- It is interesting that instrumentalness is almost non-existent.
- Energy and danceability are high.
- Speechiness is low, this can be explained by eminemns gimmick. Namely rapping very fast, which is hard to replicate.
### Chroma of Mockingbird
```{r}
mockingbird<-
get_tidy_audio_analysis("561jH07mF1jHuk7KlaeF0s") %>%
select(segments) %>%
unnest(segments) %>%
select(start, duration, pitches)
```
```{r}
mockingbird %>%
mutate(pitches = map(pitches, compmus_normalise, "euclidean")) %>%
compmus_gather_chroma() %>%
ggplot(
aes(
x = start + duration / 2,
width = duration,
y = pitch_class,
fill = value
)
) +
geom_tile() +
labs(x = "Time (s)", y = NULL, fill = "Magnitude") +
theme_minimal() +
scale_fill_viridis_c() +
ggtitle("Chroma sampling of Mockingbird using euclidean") +
theme(title = element_text(size = 9))
```
***
#### Mocking bird
- Mostly played in C D and E
### Results
***
#### Notable things
- Many skits are not popular, still eminem keeps them in his album. This might be since most albums have a story behind them and the skit shows some light on this backstory. An example is the skits with his manager Paul.
- Most of his big albums have atleast one popular song. indicating that he is still performing well even after all those years.
- WHat i still want to do is comapare different albums, especially one of his first vs one of his last and see if there are big differences between them. Sugestions on visualisation are welcome :)
